(DEFLIST (EVALP GOFN EDBRK BKTRACE BKFIND BKTR BKTRV BKPRINVAL BKACT CHNMX CHNM1 BKREAD ARGLIST %%MSGFLAG
		%%BKPOS %%CMDL %FROM %TO CHNGDFLG)
	 T 
	 NOCALL)

(DEFLIST (%PRINFN) T CALL)

(LAP ERRORX SUBR)
	(PUSH P 1Q)
	(MOVE 1Q (SPECIAL USERERRORX) S)
	(JUMPE 1Q TAG3)
	(MOVE 1Q 0Q P)
	(PUSH P (SPECIAL USERERRORX) S)
	(CALLF@ 1Q 0Q P)
	(SUB P (C 1Q 0Q 1Q 0Q))
 TAG3	(JUMPN 1Q TAG1)
	(JSP 6Q SPECBIND)
	(0Q 0Q (SPECIAL LASTPOS) S)
	(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
	(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
	(CALL 0Q (E SPDLPT) S)
	(MOVEI 3Q (QUOTE NIL))
	(MOVE 2Q 1Q)
	(MOVEI 1Q (QUOTE ERRORX) S)
	(CALL 3Q (E STKSRCH) S)
	(CALL 1Q (E SUB1) S)
	(CALL 1Q (E NEXTEV) S)
	(MOVEM 1Q (SPECIAL LASTPOS) S)
	(JUMPE 1Q TAG11)
	(CALL 1Q (E SPDLRT) S)
	(MOVEM 1Q 0Q P)
	(JRST 0Q TAG10)
 TAG11	(CALL 1Q (E ERR) S)
 TAG10	(PUSH P 1Q)
	(MOVE 1Q -1Q P)
	(CALL 1Q (E CONSP) S)
	(MOVE 2Q 1Q)
	(JUMPN 2Q TAG13)
	(MOVE 1Q (SPECIAL LASTPOS) S)
	(CALL 1Q (E SUB1) S)
	(CALL 1Q (E NEXTEV) S)
	(MOVEM 1Q -2Q P)
	(JUMPE 1Q TAG15)
	(CALL 1Q (E STKNAME) S)
	(PUSH P 1Q)
	(CAIE 1Q (QUOTE //BREAK1) S)
	(JRST 0Q TAG16)
	(TDZA 2Q 2Q)
 TAG16	(MOVEI 2Q (QUOTE T) S)
	(SUB P (C 1Q 0Q 1Q 0Q))
	(JRST 0Q TAG14)
 TAG15	(MOVEI 2Q (QUOTE NIL))
 TAG14	(JUMPN 2Q TAG13)
	(MOVEI 1Q (QUOTE NIL))
	(CALL 1Q (E ERR) S)
	(MOVE 2Q 1Q)
 TAG13	(PUSH P 2Q)
	(MOVE 1Q -2Q P)
	(CALL 1Q (E ATOM) S)
	(JUMPE 1Q TAG21)
	(MOVE 3Q -2Q P)
	(JRST 0Q TAG20)
 TAG21	(HLRZ@ 3Q -2Q P)
 TAG20	(MOVEI 5Q (QUOTE ERRORX) S)
	(MOVEI 4Q (QUOTE NIL))
	(POP P 2Q)
	(POP P 1Q)
	(CALL 5Q (E BREAK1) S)
	(MOVE 2Q 1Q)
	(MOVEM 1Q 0Q P)
	(MOVE 1Q (SPECIAL LASTPOS) S)
	(CALL 2Q (E OUTVAL) S)
	(MOVEI 1Q (QUOTE NIL))
	(PUSHJ P SPECSTR)
	(SUB P (C 2Q 0Q 2Q 0Q))
 TAG1	(SUB P (C 1Q 0Q 1Q 0Q))
	(POPJ P)
	NIL

(LAP BREAK1 SUBR)
	(JSP 6Q SPECBIND)
	(0Q 1Q (SPECIAL BRKEXP) S)
	(0Q 2Q (SPECIAL BRKWHEN) S)
	(0Q 3Q (SPECIAL BRKFN) S)
	(0Q 4Q (SPECIAL BRKCOMS) S)
	(0Q 5Q (SPECIAL BRKTYPE) S)
	(MOVEI 1Q (QUOTE 72Q))
	(CALL 1Q (E PROMPT) S)
	(MOVEI 2Q (QUOTE NIL))
	(PUSH P 1Q)
	(MOVEI 1Q (QUOTE NIL))
	(CALL 2Q (E INC) S)
	(MOVEI 2Q (QUOTE NIL))
	(PUSH P 1Q)
	(MOVEI 1Q (QUOTE NIL))
	(CALL 2Q (E OUTC) S)
	(POP P 2Q)
	(CALL 2Q (E XCONS) S)
	(POP P 2Q)
	(CALL 2Q (E XCONS) S)
	(MOVE 2Q (SPECIAL #%BKSAVE) S)
	(CALL 2Q (E CONS) S)
	(MOVEM 1Q (SPECIAL #%BKSAVE) S)
	(MOVEI 1Q (QUOTE (//BREAK1)) S)
	(CALL 1Q (E *EVAL) S)
	(JRST 0Q SPECSTR)
	NIL

(LAP //BREAK1 SUBR)
	(JSP 6Q SPECBIND)
	(0Q 0Q (SPECIAL LASTPOS) S)
	(0Q 0Q (SPECIAL !VALUE) S)
	(0Q 0Q (SPECIAL %%MSGFLAG) S)
	(0Q 0Q (SPECIAL %%BKPOS) S)
	(0Q 0Q (SPECIAL %%CMDL) S)
	(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
	(MOVE 5Q (SPECIAL BRKTYPE) S)
	(CAIE 5Q (QUOTE ERRORX) S)
	(JRST 0Q TAG15)
	(MOVEI 1Q (QUOTE ERRORX) S)
	(JRST 0Q TAG14)
 TAG15	(MOVEI 1Q (QUOTE //BREAK1) S)
 TAG14	(PUSH P 1Q)
	(CALL 0Q (E SPDLPT) S)
	(MOVEI 3Q (QUOTE NIL))
	(MOVE 2Q 1Q)
	(POP P 1Q)
	(CALL 3Q (E STKSRCH) S)
	(MOVEM 1Q (SPECIAL LASTPOS) S)
	(JUMPE 1Q TAG13)
	(CALL 1Q (E SUB1) S)
	(CALL 1Q (E NEXTEV) S)
	(MOVEM 1Q (SPECIAL %%BKPOS) S)
	(CALL 1Q (E STKNAME) S)
	(CAIE 1Q (QUOTE BREAK1) S)
	(JRST 0Q TAG17)
	(MOVE 5Q (SPECIAL %%BKPOS) S)
	(MOVEM 5Q (SPECIAL LASTPOS) S)
 TAG17
 TAG13	(MOVE 5Q (SPECIAL LASTPOS) S)
	(MOVEM 5Q (SPECIAL %%BKPOS) S)
	(CLEARM 5Q (SPECIAL BKPOS) S)
	(MOVE 5Q (SPECIAL BRKWHEN) S)
	(JUMPN 5Q TAG21)
	(MOVE 1Q (SPECIAL BRKEXP) S)
	(CALL 1Q (E FROM?=) S)
 TAG21	(MOVE 1Q (SPECIAL LASTPOS) S)
	(CALL 1Q (E SUB1) S)
	(CALL 1Q (E NEXTEV) S)
	(MOVE 5Q 1Q)
	(JUMPN 5Q TAG22)
	(MOVE 5Q (SPECIAL LASTPOS) S)
 TAG22	(MOVEM 5Q (SPECIAL LASTPOS) S)
	(MOVE 1Q 5Q)
	(CALL 1Q (E ADD1) S)
	(MOVEM 1Q (SPECIAL %%CMDL) S)
 TAG1	(MOVEI 3Q (QUOTE NIL))
	(MOVE 2Q (SPECIAL %%CMDL) S)
	(MOVEI 1Q (QUOTE MACROEXPANSION) S)
	(CALL 3Q (E STKSRCH) S)
	(MOVEM 1Q (SPECIAL %%CMDL) S)
	(JUMPE 1Q TAG24)
	(CALL 1Q (E SPDLRT) S)
	(CALL 1Q (E UNMACEXPAND) S)
	(JRST 0Q TAG1)
 TAG24
 TAG2	(MOVE 5Q (SPECIAL BRKCOMS) S)
	(JUMPE 5Q TAG26)
	(HLRZ@ 1Q 5Q)
	(MOVEM 1Q (SPECIAL %%CMDL) S)
	(CALL 1Q (E ATOM) S)
	(JUMPE 1Q TAG30)
	(MOVE 1Q (SPECIAL %%CMDL) S)
	(CALL 1Q (E NCONS) S)
	(MOVEM 1Q (SPECIAL %%CMDL) S)
 TAG30	(HRRZ@ 5Q (SPECIAL BRKCOMS) S)
	(MOVEM 5Q (SPECIAL BRKCOMS) S)
	(JRST 0Q TAG25)
 TAG26	(MOVEI 2Q (QUOTE T) S)
	(MOVEI 1Q (QUOTE NIL))
	(CALL 2Q (E INC) S)
	(MOVEI 2Q (QUOTE T) S)
	(MOVEI 1Q (QUOTE NIL))
	(CALL 2Q (E OUTC) S)
	(MOVEI 1Q (QUOTE 72Q))
	(CALL 1Q (E PROMPT) S)
	(CALL 0Q (E TALK) S)
	(CLEARM 5Q (SPECIAL ↑H) S)
	(MOVEI 1Q (QUOTE 1Q))
	(CALL 1Q (E LINES) S)
	(MOVE 5Q (SPECIAL %%MSGFLAG) S)
	(JUMPN 5Q TAG33)
	(MOVEI 2Q (QUOTE NIL))
	(MOVE 1Q (SPECIAL BRKFN) S)
	(CALL 2Q (E PRINA) S)
	(MOVEI 2Q (QUOTE NIL))
	(MOVEI 1Q (QUOTE " Broken:") S)
	(CALL 2Q (E PRINAC) S)
	(MOVEI 1Q (QUOTE 1Q))
	(CALL 1Q (E LINES) S)
	(MOVEI 5Q (QUOTE T) S)
	(MOVEM 5Q (SPECIAL %%MSGFLAG) S)
 TAG33	(JSP 6Q SPECBIND)
	(0Q 0Q (SPECIAL BASE) S)
	(0Q 0Q (SPECIAL *NOPOINT) S)
	(MOVEI 5Q (QUOTE 12Q))
	(MOVEM 5Q (SPECIAL BASE) S)
	(MOVEI 5Q (QUOTE T) S)
	(MOVEM 5Q (SPECIAL *NOPOINT) S)
	(MOVE 1Q (SPECIAL #%BKSAVE) S)
	(CALL 1Q (E LENGTH) S)
	(CALL 1Q (E PRINC) S)
	(PUSHJ P SPECSTR)
	(PUSH P (C 0Q 0Q TAG40 0Q))
	(MOVEI 1Q (QUOTE ERRORX) S)
	(JSP 13Q *ERRSET1)
	(MOVEI 1Q (QUOTE NIL))
	(CALL 1Q (E LINEREAD) S)
	(JRST 0Q *ERRSET2)
 TAG40	(MOVEM 1Q (SPECIAL %%CMDL) S)
	(CALL 1Q (E ATOM) S)
	(JUMPN 1Q TAG2)
	(HLRZ@ 5Q (SPECIAL %%CMDL) S)
	(MOVEM 5Q (SPECIAL %%CMDL) S)
 TAG25
 TAG3	(MOVE 5Q (SPECIAL %%MSGFLAG) S)
	(JUMPE 5Q TAG43)
	(MOVEI 1Q (QUOTE 0Q))
	(CALL 1Q (E LINES) S)
 TAG43	(MOVE 5Q (SPECIAL %%CMDL) S)
	(JUMPE 5Q TAG2)
	(HLRZ@ 5Q (SPECIAL %%CMDL) S)
	(MOVEM 5Q (SPECIAL SELECTQ) S)
	(CAIE 5Q (QUOTE ↑) S)
	(JRST 0Q TAG46)
	(MOVEI 1Q (QUOTE 1Q))
	(CALL 1Q (E *RSETERX) S)
	(MOVEI 1Q (QUOTE NIL))
	(CALL 1Q (E ERR) S)
	(JRST 0Q TAG45)
 TAG46	(CAIE 5Q (QUOTE ↑↑) S)
	(JRST 0Q TAG47)
	(MOVE 1Q (SPECIAL #%BKSAVE) S)
	(CALL 1Q (E LENGTH) S)
	(CALL 1Q (E *RSETERX) S)
	(MOVEI 1Q (QUOTE NIL))
	(CALL 17Q (E **TOP**) S)
	(JRST 0Q TAG45)
 TAG47	(CAIE 5Q (QUOTE BK) S)
	(JRST 0Q TAG50)
	(MOVEI 1Q (QUOTE (1000Q)) S)
	(PUSHJ P BKREAD)
	(MOVEI 2Q (QUOTE (NIL T T T)) S)
	(PUSHJ P BKTRACE)
	(JRST 0Q TAG45)
 TAG50	(CAIE 5Q (QUOTE BKE) S)
	(JRST 0Q TAG51)
	(MOVEI 1Q (QUOTE (1000Q)) S)
	(PUSHJ P BKREAD)
	(MOVEI 2Q (QUOTE (NIL NIL T T)) S)
	(PUSHJ P BKTRACE)
	(JRST 0Q TAG45)
 TAG51	(CAIE 5Q (QUOTE BKF) S)
	(JRST 0Q TAG52)
	(MOVEI 1Q (QUOTE (1000Q)) S)
	(PUSHJ P BKREAD)
	(MOVEI 2Q (QUOTE (NIL NIL NIL T)) S)
	(PUSHJ P BKTRACE)
	(JRST 0Q TAG45)
 TAG52	(CAIE 5Q (QUOTE BKV) S)
	(JRST 0Q TAG53)
	(MOVEI 1Q (QUOTE (1000Q)) S)
	(PUSHJ P BKREAD)
	(MOVEI 2Q (QUOTE (T T T T)) S)
	(PUSHJ P BKTRACE)
	(JRST 0Q TAG45)
 TAG53	(CAIE 5Q (QUOTE BKEV) S)
	(JRST 0Q TAG54)
	(MOVEI 1Q (QUOTE (1000Q)) S)
	(PUSHJ P BKREAD)
	(MOVEI 2Q (QUOTE (T NIL T T)) S)
	(PUSHJ P BKTRACE)
	(JRST 0Q TAG45)
 TAG54	(CAIE 5Q (QUOTE BKFV) S)
	(JRST 0Q TAG55)
	(MOVEI 1Q (QUOTE (1000Q)) S)
	(PUSHJ P BKREAD)
	(MOVEI 2Q (QUOTE (T NIL NIL T)) S)
	(PUSHJ P BKTRACE)
	(JRST 0Q TAG45)
 TAG55	(CAIE 5Q (QUOTE >) S)
	(JRST 0Q TAG56)
	(MOVEI 1Q (QUOTE NIL))
	(PUSHJ P BKREAD)
	(PUSH P 1Q)
	(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
	(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
	(MOVE 1Q (SPECIAL LASTPOS) S)
	(CALL 1Q (E SPDLRT) S)
	(MOVEM 1Q 0Q P)
	(CALL 1Q (E ATOM) S)
	(JUMPE 1Q TAG63)
	(MOVE 1Q (SPECIAL LASTPOS) S)
	(CALL 1Q (E SUB1) S)
	(CALL 1Q (E NEXTEV) S)
	(MOVEM 1Q -1Q P)
	(JUMPE 1Q TAG65)
	(CALL 1Q (E SPDLRT) S)
 TAG65	(MOVE 3Q -2Q P)
	(MOVE 2Q 0Q P)
	(PUSHJ P CHNM1)
	(MOVE 1Q (SPECIAL LASTPOS) S)
	(CALL 1Q (E STKPTR) S)
	(MOVE 5Q -2Q P)
	(HRRM@ 5Q 1Q)
	(JRST 0Q TAG62)
 TAG63	(MOVE 5Q -2Q P)
	(HRLM@ 5Q (SPECIAL BRKEXP) S)
	(MOVE 5Q (SPECIAL BRKEXP) S)
	(JUMPE 5Q TAG66)
	(MOVEI 1Q (QUOTE (//BREAK1)) S)
	(PUSHJ P BKREAD)
	(MOVEM 1Q -1Q P)
	(CAIN 1Q (QUOTE //BREAK1) S)
	(JRST 0Q TAG66)
	(HRRZ@ 2Q (SPECIAL BRKEXP) S)
	(MOVE 1Q -1Q P)
	(CALL 2Q (E CONS) S)
	(HRRM@ 1Q (SPECIAL BRKEXP) S)
 TAG66
 TAG62	(MOVEI 1Q (QUOTE NIL))
	(CALL 1Q (E FROM?=) S)
	(SUB P (C 3Q 0Q 3Q 0Q))
	(JRST 0Q TAG45)
 TAG56	(CAIE 5Q (QUOTE GO) S)
	(JRST 0Q TAG71)
	(MOVE 5Q 0Q P)
	(JUMPN 5Q TAG72)
	(MOVE 1Q (SPECIAL BRKEXP) S)
	(PUSHJ P EVALP)
	(JUMPN 1Q TAG4)
 TAG72	(MOVEI 1Q (QUOTE 0Q))
	(CALL 1Q (E LINES) S)
	(MOVE 1Q (SPECIAL !VALUE) S)
	(CALL 1Q (E %PRINFN) S)
	(JRST 0Q TAG5)
 TAG71	(CAIE 5Q (QUOTE OK) S)
	(JRST 0Q TAG73)
	(MOVE 5Q 0Q P)
	(JUMPN 5Q TAG74)
	(MOVE 1Q (SPECIAL BRKEXP) S)
	(PUSHJ P EVALP)
	(JUMPN 1Q TAG4)
 TAG74	(JRST 0Q TAG5)
 TAG73	(CAIE 5Q (QUOTE EVAL) S)
	(JRST 0Q TAG75)
	(MOVE 1Q (SPECIAL BRKEXP) S)
	(PUSHJ P EVALP)
	(JUMPN 1Q TAG4)
	(MOVE 5Q (SPECIAL %%MSGFLAG) S)
	(JUMPE 5Q TAG100)
	(MOVEI 1Q (QUOTE 0Q))
	(CALL 1Q (E LINES) S)
	(MOVE 1Q (SPECIAL !VALUE) S)
	(CALL 1Q (E %PRINFN) S)
 TAG100	(MOVEI 5Q (QUOTE T) S)
	(MOVEM 5Q 0Q P)
	(JRST 0Q TAG45)
 TAG75	(CAIE 5Q (QUOTE EDIT) S)
	(JRST 0Q TAG101)
	(MOVEI 1Q (QUOTE "= ") S)
	(CALL 1Q (E PRINC) S)
	(HRRZ@ 1Q (SPECIAL %%CMDL) S)
	(MOVEI 5Q (QUOTE (NIL)) S)
	(MOVEM 5Q (SPECIAL %%CMDL) S)
	(MOVEI 2Q (QUOTE T) S)
	(CALL 2Q (E &) S)
	(JUMPE 1Q TAG103)
	(PUSH P (C 0Q 0Q TAG104 0Q))
	(MOVEI 1Q (QUOTE ERRORX) S)
	(JSP 13Q *ERRSET1)
	(PUSHJ P EDBRK)
	(JRST 0Q *ERRSET2)
 TAG104	(JRST 0Q TAG102)
 TAG103	(JRST 0Q TAG4)
 TAG102	(JRST 0Q TAG45)
 TAG101	(CAIE 5Q (QUOTE ?=) S)
	(JRST 0Q TAG105)
	(HRRZ@ 1Q (SPECIAL %%CMDL) S)
	(MOVEI 5Q (QUOTE (NIL)) S)
	(MOVEM 5Q (SPECIAL %%CMDL) S)
	(CALL 1Q (E ?=) S)
	(JRST 0Q TAG45)
 TAG105	(CAIE 5Q (QUOTE ARGS) S)
	(JRST 0Q TAG106)
	(MOVE 1Q (SPECIAL BRKFN) S)
	(PUSHJ P ARGLIST)
	(MOVE 2Q 1Q)
	(MOVEI 1Q (QUOTE ARGPRINT) S)
	(PUSHJ P *MAPC)
	(JRST 0Q TAG45)
 TAG106	(CAIE 5Q (QUOTE &) S)
	(JRST 0Q TAG107)
	(HRRZ@ 1Q (SPECIAL %%CMDL) S)
	(MOVEI 5Q (QUOTE (NIL)) S)
	(MOVEM 5Q (SPECIAL %%CMDL) S)
	(MOVEI 2Q (QUOTE T) S)
	(CALL 2Q (E &) S)
	(JUMPN 1Q TAG110)
	(JRST 0Q TAG4)
 TAG110	(JRST 0Q TAG45)
 TAG107	(CAIE 5Q (QUOTE RETURN) S)
	(JRST 0Q TAG111)
	(MOVEI 1Q (QUOTE NIL))
	(PUSHJ P BKREAD)
	(MOVE 5Q (SPECIAL BRKEXP) S)
	(MOVEM 5Q (SPECIAL %%CMDL) S)
	(MOVEM 1Q (SPECIAL BRKEXP) S)
	(PUSHJ P EVALP)
	(JUMPE 1Q TAG113)
	(MOVE 5Q (SPECIAL %%CMDL) S)
	(MOVEM 5Q (SPECIAL BRKEXP) S)
	(JRST 0Q TAG4)
 TAG113	(JRST 0Q TAG5)
 TAG111	(CAIE 5Q (QUOTE FROM?=) S)
	(JRST 0Q TAG114)
	(MOVEI 1Q (QUOTE NIL))
	(PUSHJ P BKREAD)
	(CALL 1Q (E FROM?=) S)
	(JRST 0Q TAG45)
 TAG114	(CAIE 5Q (QUOTE EX) S)
	(JRST 0Q TAG115)
	(HRRZ@ 5Q (SPECIAL %%CMDL) S)
	(JUMPE 5Q TAG120)
	(MOVEI 4Q (QUOTE (NIL)) S)
	(MOVEM 4Q (SPECIAL %%CMDL) S)
	(MOVEI 2Q (QUOTE NIL))
	(MOVE 1Q 5Q)
	(CALL 2Q (E &) S)
	(JUMPE 1Q TAG117)
 TAG120	(MOVEI 1Q (QUOTE NIL))
	(CALL 1Q (E FROM?=) S)
	(JRST 0Q TAG116)
 TAG117	(JRST 0Q TAG4)
 TAG116	(JRST 0Q TAG45)
 TAG115	(CAIE 5Q (QUOTE USE) S)
	(JRST 0Q TAG121)
	(CALL 0Q (E USE) S)
	(JRST 0Q TAG45)
 TAG121	(CAIE 5Q (QUOTE TRACE) S)
	(JRST 0Q TAG122)
	(MOVE 5Q (SPECIAL TRACE) S)
	(JUMPE 5Q TAG124)
	(MOVEI 2Q (QUOTE NIL))
	(HLRZ@ 1Q (SPECIAL #%BKSAVE) S)
	(CALL 1Q (E CDDR) S)
	(CALL 2Q (E OUTC) S)
 TAG124	(MOVEI 5Q (QUOTE T) S)
	(MOVEM 5Q (SPECIAL BKPOS) S)
	(MOVE 1Q (SPECIAL #%INDENT) S)
	(CALL 1Q (E BKPOS) S)
	(MOVEI 1Q (QUOTE "Enter ") S)
	(CALL 1Q (E PRINC) S)
	(MOVE 1Q (SPECIAL BRKFN) S)
	(CALL 1Q (E PRIN1) S)
	(MOVEI 1Q (QUOTE :) S)
	(CALL 1Q (E PRINC) S)
	(MOVEI 2Q (QUOTE 3Q))
	(MOVE 1Q (SPECIAL #%INDENT) S)
	(CALL 2Q (E *PLUS) S)
	(MOVEM 1Q (SPECIAL #%INDENT) S)
	(JRST 0Q TAG45)
 TAG122	(CAIE 5Q (QUOTE UNTRACE) S)
	(JRST 0Q TAG125)
	(MOVE 5Q (SPECIAL %%BKPOS) S)
	(MOVEM 5Q (SPECIAL LASTPOS) S)
	(CLEARM 5Q (SPECIAL BKPOS) S)
	(MOVE 1Q (SPECIAL BRKEXP) S)
	(CALL 1Q (E NCONS) S)
	(MOVE 2Q (SPECIAL BRKFN) S)
	(CALL 2Q (E XCONS) S)
	(MOVEI 2Q (QUOTE %UNTRACE) S)
	(CALL 2Q (E XCONS) S)
	(CALL 1Q (E FROM?=) S)
	(JRST 0Q TAG45)
 TAG125	(MOVE 2Q (SPECIAL BREAKMACROS) S)
	(HLRZ@ 1Q (SPECIAL %%CMDL) S)
	(CALL 2Q (E ASSOC) S)
	(JUMPE 1Q TAG130)
	(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
	(MOVE 2Q (SPECIAL BREAKMACROS) S)
	(HLRZ@ 1Q (SPECIAL %%CMDL) S)
	(CALL 2Q (E ASSOC) S)
	(HRRZ@ 1Q 1Q)
	(MOVEM 1Q 0Q P)
	(HLRZ@ 1Q 1Q)
	(JUMPE 1Q TAG135)
	(CALL 1Q (E LITATOM) S)
	(JUMPE 1Q TAG135)
	(HRRZ@ 3Q 0Q P)
	(HLRZ@ 2Q 0Q P)
	(HRRZ@ 1Q (SPECIAL %%CMDL) S)
	(CALL 3Q (E SUBST) S)
	(JRST 0Q TAG134)
 TAG135	(HRRZ@ 3Q 0Q P)
	(HRRZ@ 2Q (SPECIAL %%CMDL) S)
	(HLRZ@ 1Q 0Q P)
	(CALL 3Q (E SUBPAIR) S)
 TAG134	(MOVE 2Q (SPECIAL BRKCOMS) S)
	(CALL 2Q (E *APPEND) S)
	(MOVEM 1Q (SPECIAL BRKCOMS) S)
	(SUB P (C 1Q 0Q 1Q 0Q))
	(JRST 0Q TAG2)
 TAG130	(HLRZ@ 1Q (SPECIAL %%CMDL) S)
	(CALL 1Q (E LITATOM) S)
	(JUMPE 1Q TAG141)
	(HLRZ@ 1Q (SPECIAL %%CMDL) S)
	(CALL 1Q (E CHRVAL) S)
	(CAIE 1Q (QUOTE 76Q))
	(JRST 0Q TAG141)
	(MOVE 1Q (SPECIAL %%CMDL) S)
	(CALL 1Q (E AEXPLODE) S)
	(MOVEM 1Q (SPECIAL %%CMDL) S)
	(HRRZ@ 2Q 1Q)
	(HRRZ@ 2Q 2Q)
	(MOVEI 1Q (QUOTE 40Q))
	(CALL 2Q (E CONS) S)
	(HRRZ@ 5Q (SPECIAL %%CMDL) S)
	(HRRM@ 1Q 5Q)
	(PUSH P (C 0Q 0Q TAG146 0Q))
	(MOVEI 1Q (QUOTE ERRORX) S)
	(JSP 13Q *ERRSET1)
	(MOVE 1Q (SPECIAL %%CMDL) S)
	(CALL 1Q (E READLIST) S)
	(JRST 0Q *ERRSET2)
 TAG146	(MOVEM 1Q (SPECIAL %%CMDL) S)
	(CALL 1Q (E CONSP) S)
	(JUMPE 1Q TAG145)
	(HLRZ@ 5Q (SPECIAL %%CMDL) S)
	(MOVEM 5Q (SPECIAL %%CMDL) S)
	(JRST 0Q TAG3)
 TAG145	(JRST 0Q TAG4)
	(JRST 0Q TAG127)
 TAG141	(PUSH P (C 0Q 0Q TAG147 0Q))
	(MOVEI 1Q (QUOTE ERRORX) S)
	(JSP 13Q *ERRSET1)
	(MOVE 1Q (SPECIAL %%MSGFLAG) S)
	(JUMPE 1Q TAG151)
	(HLRZ@ 1Q (SPECIAL %%CMDL) S)
	(CALL 1Q (E *EVAL) S)
	(PUSH P 1Q)
	(MOVEI 1Q (QUOTE 0Q))
	(CALL 1Q (E LINES) S)
	(POP P 1Q)
	(CALL 1Q (E %PRINFN) S)
	(JRST 0Q TAG150)
 TAG151	(HLRZ@ 1Q (SPECIAL %%CMDL) S)
	(CALL 1Q (E *EVAL) S)
 TAG150	(JRST 0Q *ERRSET2)
 TAG147	(CALL 1Q (E ATOM) S)
	(JUMPN 1Q TAG4)
 TAG127
 TAG45	(HRRZ@ 5Q (SPECIAL %%CMDL) S)
	(MOVEM 5Q (SPECIAL %%CMDL) S)
	(JRST 0Q TAG3)
 TAG4	(CLEARM 5Q (SPECIAL BRKCOMS) S)
	(JRST 0Q TAG2)
 TAG5	(MOVE 5Q (SPECIAL %%BKPOS) S)
	(MOVEM 5Q (SPECIAL LASTPOS) S)
	(MOVE 1Q (SPECIAL BRKEXP) S)
	(CALL 1Q (E ATOM) S)
	(JUMPN 1Q TAG153)
	(HLRZ@ 1Q (SPECIAL BRKEXP) S)
	(PUSHJ P GOFN)
	(JUMPE 1Q TAG154)
	(MOVE 1Q (SPECIAL BRKEXP) S)
	(CALL 1Q (E FROM?=) S)
 TAG154
 TAG153
 TAG6	(MOVEI 1Q (QUOTE 1Q))
	(CALL 1Q (E *RSETERX) S)
	(MOVE 1Q (SPECIAL !VALUE) S)
	(SUB P (C 1Q 0Q 1Q 0Q))
	(JRST 0Q SPECSTR)
	NIL

(LAP EVALP SUBR)
	(MOVE 5Q (SPECIAL #%BKSAVE) S)
	(JSP 6Q SPECBIND)
	(0Q 5Q (SPECIAL #%BKSAVE) S)
	(PUSH P 1Q)
	(MOVEI 1Q (QUOTE 1Q))
	(CALL 1Q (E *RSETERX) S)
	(PUSHJ P SPECSTR)
	(MOVE 1Q 0Q P)
	(CALL 1Q (E CONSP) S)
	(JUMPE 1Q TAG3)
	(HLRZ@ 1Q 0Q P)
	(PUSHJ P GOFN)
	(MOVEM 1Q (SPECIAL !VALUE) S)
	(JUMPN 1Q TAG1)
 TAG3	(PUSH P (C 0Q 0Q TAG5 0Q))
	(MOVEI 1Q (QUOTE ERRORX) S)
	(JSP 13Q *ERRSET1)
	(MOVE 1Q -6Q P)
	(CALL 1Q (E *EVAL) S)
	(JRST 0Q *ERRSET2)
 TAG5	(MOVEM 1Q (SPECIAL !VALUE) S)
 TAG1	(MOVEI 2Q (QUOTE NIL))
	(MOVEI 1Q (QUOTE NIL))
	(CALL 2Q (E INC) S)
	(MOVEI 2Q (QUOTE NIL))
	(MOVEI 1Q (QUOTE NIL))
	(CALL 2Q (E OUTC) S)
	(MOVEI 1Q (QUOTE 72Q))
	(CALL 1Q (E PROMPT) S)
	(MOVE 5Q (SPECIAL !VALUE) S)
	(CAIE 5Q (QUOTE THROW) S)
	(JRST 0Q TAG7)
	(MOVE 1Q (SPECIAL THROW) S)
	(CALL 1Q (E NCONS) S)
	(MOVEI 2Q (QUOTE QUOTE) S)
	(CALL 2Q (E XCONS) S)
	(MOVEM 1Q 0Q P)
	(MOVE 1Q (SPECIAL CATCH) S)
	(CALL 1Q (E NCONS) S)
	(MOVE 2Q 0Q P)
	(CALL 2Q (E XCONS) S)
	(MOVEI 2Q (QUOTE THROW) S)
	(CALL 2Q (E XCONS) S)
	(MOVEM 1Q (SPECIAL BRKEXP) S)
	(MOVEI 5Q (QUOTE THROW) S)
	(MOVEM 5Q (SPECIAL !VALUE) S)
	(MOVEI 1Q (QUOTE NIL))
	(JRST 0Q TAG6)
 TAG7	(MOVE 1Q 5Q)
	(CALL 1Q (E ATOM) S)
	(JUMPE 1Q TAG10)
	(MOVEI 1Q (QUOTE ?) S)
	(CALL 1Q (E PRINC) S)
	(MOVEI 1Q (QUOTE T) S)
	(JRST 0Q TAG6)
 TAG10	(HLRZ@ 5Q 5Q)
	(MOVEM 5Q (SPECIAL !VALUE) S)
 TAG6	(SUB P (C 1Q 0Q 1Q 0Q))
	(POPJ P)
	NIL

(LAP GOFN SUBR)
	(PUSH P 1Q)
	(CAIE 1Q (QUOTE BRKAPPLY) S)
	(JRST 0Q TAG2)
	(MOVE 5Q (SPECIAL BRKFN) S)
	(MOVEM 5Q 0Q P)
 TAG2	(MOVEI 2Q (QUOTE (GO RETURN ERR THROW)) S)
	(MOVE 1Q 0Q P)
	(CALL 2Q (E MEMQ) S)
	(JUMPN 1Q TAG3)
	(MOVEI 2Q (QUOTE ALIAS) S)
	(MOVE 1Q 0Q P)
	(CALL 2Q (E GET) S)
	(MOVEM 1Q 0Q P)
	(JUMPE 1Q TAG4)
	(MOVEI 2Q (QUOTE (GO RETURN ERR THROW)) S)
	(HRRZ@ 1Q 1Q)
	(CALL 2Q (E MEMQ) S)
 TAG4
 TAG3	(SUB P (C 1Q 0Q 1Q 0Q))
	(POPJ P)
	NIL

(LAP PLEV SUBR)
	(MOVE 2Q (SPECIAL %LOOKDPTH) S)
	(JCALL 2Q (E PRINLEV) S)
	NIL

(DEFV %LOOKDPTH 6Q)

(LAP FROM?= SUBR)
	(PUSH P 1Q)
	(CALL 0Q (E SPDLPT) S)
	(MOVE 3Q (SPECIAL LASTPOS) S)
	(MOVE 2Q 1Q)
	(MOVEI 1Q (QUOTE //BREAK1) S)
	(CALL 3Q (E STKCOUNT) S)
	(CALL 1Q (E *RSETERX) S)
	(MOVE 1Q 0Q P)
	(JUMPE 1Q TAG2)
	(MOVE 2Q 1Q)
	(MOVE 1Q (SPECIAL LASTPOS) S)
	(CALL 2Q (E SPREVAL) S)
	(JRST 0Q TAG1)
 TAG2	(MOVE 1Q (SPECIAL LASTPOS) S)
	(CALL 1Q (E SPREDO) S)
 TAG1	(SUB P (C 1Q 0Q 1Q 0Q))
	(POPJ P)
	NIL

(LAP USE SUBR)
	(MOVEI 1Q (QUOTE NIL))
	(PUSHJ P BKREAD)
	(PUSH P 1Q)
	(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
	(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
	(MOVEI 1Q (QUOTE NIL))
	(PUSHJ P BKREAD)
	(CAIE 1Q (QUOTE FOR) S)
	(JRST 0Q TAG5)
	(MOVEI 1Q (QUOTE NIL))
	(PUSHJ P BKREAD)
	(MOVEM 1Q 0Q P)
	(JRST 0Q TAG4)
 TAG5	(MOVEI 1Q (QUOTE ?) S)
	(CALL 1Q (E PRINC) S)
	(JUMPE 1Q TAG6)
	(MOVEI 5Q (QUOTE (NIL)) S)
	(MOVEM 5Q (SPECIAL %%CMDL) S)
	(MOVEI 1Q (QUOTE T) S)
	(JRST 0Q TAG1)
 TAG6
 TAG4	(MOVE 1Q (SPECIAL LASTPOS) S)
	(CALL 1Q (E SPDLRT) S)
	(MOVEM 1Q -1Q P)
	(CALL 1Q (E ATOM) S)
	(JUMPE 1Q TAG10)
	(MOVE 5Q 0Q P)
	(CAME 5Q -1Q P)
	(JRST 0Q TAG12)
	(MOVE 1Q (SPECIAL LASTPOS) S)
	(CALL 1Q (E STKPTR) S)
	(MOVE 5Q -2Q P)
	(HRRM@ 5Q 1Q)
	(MOVE 5Q (SPECIAL BRKEXP) S)
	(CAME 5Q -1Q P)
	(JRST 0Q TAG14)
	(MOVE 5Q -2Q P)
	(MOVEM 5Q (SPECIAL BRKEXP) S)
 TAG14	(MOVE 1Q (SPECIAL LASTPOS) S)
	(CALL 1Q (E SUB1) S)
	(CALL 1Q (E NEXTEV) S)
	(MOVEM 1Q -1Q P)
	(JUMPE 1Q TAG16)
	(CALL 1Q (E SPDLRT) S)
	(MOVEM 1Q -1Q P)
	(JRST 0Q TAG15)
 TAG16	(MOVEI 1Q (QUOTE T) S)
	(JRST 0Q TAG1)
 TAG15	(JRST 0Q TAG11)
 TAG12	(MOVEI 1Q (QUOTE ?) S)
	(CALL 1Q (E PRINC) S)
	(MOVEI 1Q (QUOTE T) S)
	(JRST 0Q TAG1)
 TAG11
 TAG10	(MOVE 3Q -2Q P)
	(MOVE 2Q 0Q P)
	(MOVE 1Q -1Q P)
	(PUSHJ P CHNM1)
	(JUMPN 1Q TAG21)
	(MOVEI 1Q (QUOTE 0Q))
	(CALL 1Q (E LINES) S)
	(MOVEI 2Q (QUOTE NIL))
	(MOVE 1Q 0Q P)
	(CALL 2Q (E PRINA) S)
	(MOVEI 2Q (QUOTE NIL))
	(MOVEI 1Q (QUOTE " not found in ") S)
	(CALL 2Q (E PRINAC) S)
	(MOVEI 2Q (QUOTE NIL))
	(MOVE 1Q -1Q P)
	(CALL 2Q (E PRINA) S)
 TAG21	(MOVEI 1Q (QUOTE NIL))
 TAG1	(SUB P (C 3Q 0Q 3Q 0Q))
	(POPJ P)
	NIL

(LAP ?= SUBR)
	(PUSH P 1Q)
	(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
	(JUMPN 1Q TAG6)
	(MOVE 1Q (SPECIAL LASTPOS) S)
	(CALL 1Q (E STKNAME) S)
	(PUSHJ P ARGLIST)
	(MOVE 2Q 1Q)
	(MOVEI 1Q (QUOTE ARGPRINT) S)
	(PUSHJ P *MAPC)
	(MOVEI 1Q (QUOTE T) S)
	(JRST 0Q TAG2)
 TAG6
 TAG1	(HLRZ@ 1Q -1Q P)
	(MOVEM 1Q 0Q P)
	(CALL 1Q (E NUMBERP) S)
	(JUMPE 1Q TAG10)
	(MOVE 1Q (SPECIAL LASTPOS) S)
	(CALL 1Q (E STKNAME) S)
	(PUSHJ P ARGLIST)
	(MOVE 2Q 0Q P)
	(CALL 2Q (E NTH) S)
	(HLRZ@ 1Q 1Q)
	(CALL 1Q (E ARGPRINT) S)
	(JRST 0Q TAG7)
 TAG10	(MOVE 1Q 0Q P)
	(CALL 1Q (E ARGPRINT) S)
 TAG7	(HRRZ@ 5Q -1Q P)
	(MOVEM 5Q -1Q P)
	(JUMPN 5Q TAG1)
	(MOVEI 1Q (QUOTE NIL))
 TAG2	(SUB P (C 2Q 0Q 2Q 0Q))
	(POPJ P)
	NIL

(LAP & SUBR)
	(PUSH P 1Q)
	(PUSH P 2Q)
	(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
	(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
	(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
	(JUMPN 1Q TAG7)
	(MOVE 1Q (SPECIAL %%BKPOS) S)
	(CALL 1Q (E SUB1) S)
	(CALL 1Q (E NEXTEV) S)
	(MOVE 5Q 1Q)
	(JUMPN 5Q TAG10)
	(MOVE 5Q (SPECIAL %%BKPOS) S)
 TAG10	(MOVEM 5Q 0Q P)
	(JRST 0Q TAG6)
 TAG7	(MOVEI 2Q (QUOTE (& F)) S)
	(HLRZ@ 1Q 1Q)
	(CALL 2Q (E MEMQ) S)
	(JUMPE 1Q TAG11)
	(MOVE 5Q (SPECIAL LASTPOS) S)
	(MOVEM 5Q 0Q P)
	(JRST 0Q TAG2)
 TAG11	(MOVE 5Q (SPECIAL %%BKPOS) S)
	(MOVEM 5Q 0Q P)
 TAG6
 TAG1	(MOVE 5Q -4Q P)
	(JUMPN 5Q TAG14)
	(MOVE 5Q 0Q P)
	(MOVEM 5Q (SPECIAL LASTPOS) S)
	(MOVE 5Q -3Q P)
	(JUMPE 5Q TAG16)
	(MOVE 1Q (SPECIAL LASTPOS) S)
	(CALL 1Q (E STKNAME) S)
	(CALL 1Q (E PRIN1) S)
 TAG16	(MOVEI 1Q (QUOTE T) S)
	(JRST 0Q TAG3)
 TAG14	(HLRZ@ 5Q 5Q)
	(MOVEM 5Q -1Q P)
	(CAIE 5Q (QUOTE ←) S)
	(JRST 0Q TAG17)
	(MOVEI 5Q (QUOTE T) S)
	(MOVEM 5Q -2Q P)
	(JRST 0Q TAG2)
 TAG17	(MOVE 1Q -1Q P)
	(CALL 1Q (E NUMBERP) S)
	(JUMPE 1Q TAG23)
	(MOVE 2Q 0Q P)
	(MOVE 1Q -1Q P)
	(CALL 2Q (E STKNTH) S)
	(MOVE 5Q 1Q)
	(JRST 0Q TAG22)
 TAG23	(MOVE 1Q -1Q P)
	(CALL 1Q (E ATOM) S)
	(JUMPE 1Q TAG24)
	(MOVE 3Q -2Q P)
	(MOVE 2Q 0Q P)
	(MOVE 1Q -1Q P)
	(CALL 3Q (E STKSRCH) S)
	(CLEARM 5Q -2Q P)
	(MOVE 5Q 1Q)
	(JRST 0Q TAG22)
 TAG24	(MOVEI 5Q (QUOTE NIL))
 TAG22	(MOVEM 5Q 0Q P)
	(JUMPN 5Q TAG21)
	(MOVEI 2Q (QUOTE NIL))
	(MOVE 1Q -1Q P)
	(CALL 2Q (E PRINA) S)
	(MOVEI 2Q (QUOTE NIL))
	(MOVEI 1Q (QUOTE 1Q))
	(CALL 2Q (E SPACES) S)
	(MOVEI 1Q (QUOTE ?) S)
	(CALL 1Q (E PRINC) S)
	(JRST 0Q TAG4)
 TAG21
 TAG2	(HRRZ@ 5Q -4Q P)
	(MOVEM 5Q -4Q P)
	(JRST 0Q TAG1)
 TAG4	(MOVEI 1Q (QUOTE NIL))
 TAG3	(SUB P (C 5Q 0Q 5Q 0Q))
	(POPJ P)
	NIL

(LAP EDBRK SUBR)
	(JSP 6Q SPECBIND)
	(0Q 0Q (SPECIAL L) S)
	(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
	(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
	(MOVE 1Q (SPECIAL LASTPOS) S)
	(MOVEM 1Q 0Q P)
	(CALL 1Q (E SPDLRT) S)
	(MOVEM 1Q (SPECIAL L) S)
	(CALL 1Q (E PATOM) S)
	(JUMPE 1Q TAG5)
	(MOVE 1Q 0Q P)
	(CALL 1Q (E SUB1) S)
	(CALL 1Q (E NEXTEV) S)
	(MOVEM 1Q 0Q P)
	(JUMPE 1Q TAG7)
	(CALL 1Q (E SPDLRT) S)
	(MOVEM 1Q -1Q P)
	(PUSHJ P BKFIND)
	(JUMPE 1Q TAG7)
	(MOVE 1Q -1Q P)
	(CALL 1Q (E NCONS) S)
	(PUSH P 1Q)
	(MOVEI 1Q (QUOTE UP) S)
	(CALL 1Q (E NCONS) S)
	(MOVE 2Q (SPECIAL L) S)
	(CALL 2Q (E XCONS) S)
	(MOVEI 2Q (QUOTE F) S)
	(CALL 2Q (E XCONS) S)
	(MOVEI 5Q (QUOTE NIL))
	(MOVEI 4Q (QUOTE NIL))
	(MOVEI 3Q (QUOTE NIL))
	(MOVE 2Q 1Q)
	(POP P 1Q)
	(CALL 5Q (E EDITL) S)
	(MOVEI 5Q (QUOTE NIL))
	(MOVEI 4Q (QUOTE NIL))
	(MOVEI 3Q (QUOTE NIL))
	(MOVEI 2Q (QUOTE NIL))
	(MOVEM 1Q -1Q P)
	(CALL 5Q (E EDITL) S)
	(MOVE 1Q (SPECIAL LASTPOS) S)
	(CALL 1Q (E STKPTR) S)
	(PUSH P 1Q)
	(MOVE 5Q -2Q P)
	(JUMPE 5Q TAG13)
	(HLRZ@ 5Q 5Q)
	(HLRZ@ 5Q 5Q)
 TAG13	(HRRM@ 5Q 0Q P)
	(SUB P (C 1Q 0Q 1Q 0Q))
	(JRST 0Q TAG6)
 TAG7	(MOVEI 1Q (QUOTE "not editable.") S)
	(CALL 1Q (E PRINC) S)
	(JRST 0Q TAG2)
 TAG6	(JRST 0Q TAG4)
 TAG5	(MOVEI 3Q (QUOTE NIL))
	(MOVEI 2Q (QUOTE NIL))
	(MOVE 1Q (SPECIAL L) S)
	(CALL 3Q (E EDITE) S)
 TAG4	(MOVE 5Q (SPECIAL L) S)
	(CAME 5Q (SPECIAL BRKEXP) S)
	(JRST 0Q TAG17)
	(MOVE 1Q (SPECIAL LASTPOS) S)
	(CALL 1Q (E SPDLRT) S)
	(MOVEM 1Q (SPECIAL BRKEXP) S)
 TAG17
 TAG2	(MOVEI 1Q (QUOTE NIL))
	(SUB P (C 2Q 0Q 2Q 0Q))
	(JRST 0Q SPECSTR)
	NIL

(LAP *RSETERX SUBR)
	(PUSH P 1Q)
	(MOVEI 2Q (QUOTE 1Q))
	(CALL 2Q (E *LESS) S)
	(JUMPN 1Q TAG3)
 TAG1	(MOVE 5Q 0Q P)
	(CAIE 5Q (QUOTE 1Q))
	(JRST 0Q TAG7)
	(PUSH P (C 0Q 0Q TAG10 0Q))
	(MOVEI 1Q (QUOTE ERRORX) S)
	(JSP 13Q *ERRSET1)
	(MOVEI 2Q (QUOTE NIL))
	(HLRZ@ 1Q (SPECIAL #%BKSAVE) S)
	(CALL 1Q (E CADR) S)
	(CALL 2Q (E INC) S)
	(MOVEI 2Q (QUOTE NIL))
	(HLRZ@ 1Q (SPECIAL #%BKSAVE) S)
	(CALL 1Q (E CDDR) S)
	(CALL 2Q (E OUTC) S)
	(JRST 0Q *ERRSET2)
 TAG10	(HLRZ@ 1Q (SPECIAL #%BKSAVE) S)
	(HLRZ@ 1Q 1Q)
	(CALL 1Q (E PROMPT) S)
	(HRRZ@ 5Q (SPECIAL #%BKSAVE) S)
	(MOVEM 5Q (SPECIAL #%BKSAVE) S)
	(JRST 0Q TAG3)
 TAG7	(HRRZ@ 5Q (SPECIAL #%BKSAVE) S)
	(MOVEM 5Q (SPECIAL #%BKSAVE) S)
	(MOVE 1Q 0Q P)
	(CALL 1Q (E SUB1) S)
	(MOVEM 1Q 0Q P)
	(JRST 0Q TAG1)
 TAG3	(MOVEI 1Q (QUOTE NIL))
	(SUB P (C 1Q 0Q 1Q 0Q))
	(POPJ P)
	NIL

(LAP BKTRACE SUBR)
	(PUSH P 1Q)
	(PUSH P 2Q)
	(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
	(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
	(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
	(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
	(MOVE 1Q (SPECIAL LASTPOS) S)
	(CALL 1Q (E ADD1) S)
	(CALL 1Q (E PREVEV) S)
	(MOVE 5Q 1Q)
	(JUMPN 5Q TAG5)
	(MOVE 5Q (SPECIAL LASTPOS) S)
 TAG5	(CLEARM 4Q (SPECIAL %PREVFN%) S)
	(MOVEM 5Q 0Q P)
 TAG1	(MOVE 1Q -5Q P)
	(CALL 1Q (E SUB1) S)
	(MOVEI 2Q (QUOTE 0Q))
	(MOVEM 1Q -5Q P)
	(CALL 2Q (E *LESS) S)
	(JUMPE 1Q TAG7)
	(CLEARM 5Q (SPECIAL %PREVFN%) S)
	(MOVEI 1Q (QUOTE T) S)
	(JRST 0Q TAG2)
 TAG7	(MOVE 1Q 0Q P)
	(CALL 1Q (E SUB1) S)
	(MOVEM 1Q 0Q P)
	(CALL 1Q (E FNDBRKPT) S)
	(MOVEM 1Q -1Q P)
	(JUMPN 1Q TAG11)
	(CLEARM 5Q (SPECIAL %PREVFN%) S)
	(MOVEI 1Q (QUOTE T) S)
	(JRST 0Q TAG2)
 TAG11	(MOVE 1Q -1Q P)
	(CALL 1Q (E SPDLRT) S)
	(MOVEI 2Q (QUOTE NIL))
	(MOVEM 1Q -3Q P)
	(PUSHJ P BKACT)
	(MOVEM 1Q -2Q P)
	(HLRZ@ 5Q -4Q P)
	(JUMPE 5Q TAG13)
	(HLRZ@ 5Q 1Q)
	(JUMPE 5Q TAG13)
	(PUSH P -1Q P)
	(PUSH P -1Q P)
	(HRRZ@ 3Q -6Q P)
	(HLRZ@ 3Q 3Q)
	(JUMPE 3Q TAG17)
	(HRRZ@ 3Q -4Q P)
	(HLRZ@ 3Q 3Q)
 TAG17	(PUSH P 3Q)
	(HRRZ@ 4Q -7Q P)
	(HRRZ@ 4Q 4Q)
	(HLRZ@ 4Q 4Q)
	(JUMPE 4Q TAG21)
	(HRRZ@ 4Q -5Q P)
	(HRRZ@ 4Q 4Q)
	(HLRZ@ 4Q 4Q)
 TAG21	(PUSH P 4Q)
	(HRRZ@ 5Q -10Q P)
	(HRRZ@ 5Q 5Q)
	(HRRZ@ 5Q 5Q)
	(HLRZ@ 5Q 5Q)
	(JUMPE 5Q TAG23)
	(HRRZ@ 5Q -6Q P)
	(HRRZ@ 5Q 5Q)
	(HRRZ@ 5Q 5Q)
	(HLRZ@ 5Q 5Q)
 TAG23	(POP P 4Q)
	(POP P 3Q)
	(MOVE 2Q -1Q P)
	(POP P 1Q)
	(PUSHJ P BKTRV)
	(SUB P (C 1Q 0Q 1Q 0Q))
	(JRST 0Q TAG12)
 TAG13	(HRRZ@ 5Q -4Q P)
	(HLRZ@ 5Q 5Q)
	(JUMPE 5Q TAG24)
	(HRRZ@ 5Q -2Q P)
	(HLRZ@ 5Q 5Q)
	(JUMPE 5Q TAG24)
	(PUSH P -1Q P)
	(PUSH P -1Q P)
	(HRRZ@ 3Q -6Q P)
	(HRRZ@ 3Q 3Q)
	(HLRZ@ 3Q 3Q)
	(JUMPE 3Q TAG30)
	(HRRZ@ 3Q -4Q P)
	(HRRZ@ 3Q 3Q)
	(HLRZ@ 3Q 3Q)
 TAG30	(MOVE 2Q -1Q P)
	(POP P 1Q)
	(PUSHJ P BKTR)
	(SUB P (C 1Q 0Q 1Q 0Q))
	(JRST 0Q TAG12)
 TAG24	(HRRZ@ 5Q -4Q P)
	(HRRZ@ 5Q 5Q)
	(HLRZ@ 5Q 5Q)
	(JUMPE 5Q TAG31)
	(HRRZ@ 5Q -2Q P)
	(HRRZ@ 5Q 5Q)
	(HLRZ@ 5Q 5Q)
	(JUMPE 5Q TAG31)
	(MOVEI 2Q (QUOTE 3Q))
	(MOVE 1Q -3Q P)
	(CALL 2Q (E PRINTLEV) S)
	(MOVEM 1Q (SPECIAL %PREVFN%) S)
	(JRST 0Q TAG12)
 TAG31	(HRRZ@ 5Q -4Q P)
	(HRRZ@ 5Q 5Q)
	(HRRZ@ 5Q 5Q)
	(HLRZ@ 5Q 5Q)
	(JUMPE 5Q TAG34)
	(HRRZ@ 5Q -2Q P)
	(HRRZ@ 5Q 5Q)
	(HRRZ@ 5Q 5Q)
	(HLRZ@ 5Q 5Q)
	(JUMPE 5Q TAG34)
	(MOVE 1Q -3Q P)
	(CALL 1Q (E CONSP) S)
	(JUMPE 1Q TAG34)
	(HLRZ@ 1Q -3Q P)
	(CALL 1Q (E PRINT) S)
	(JRST 0Q TAG12)
 TAG34	(MOVE 1Q -5Q P)
	(CALL 1Q (E ADD1) S)
	(MOVEM 1Q -5Q P)
 TAG12	(MOVEI 2Q (QUOTE T) S)
	(MOVE 1Q -3Q P)
	(PUSHJ P BKACT)
	(JUMPN 1Q TAG43)
	(HRRZ@ 5Q -4Q P)
	(HLRZ@ 5Q 5Q)
	(JUMPN 5Q TAG45)
	(MOVE 1Q -5Q P)
	(CALL 1Q (E SUB1) S)
	(MOVEM 1Q -5Q P)
 TAG45
 TAG43	(MOVE 5Q -1Q P)
	(MOVEM 5Q 0Q P)
	(JRST 0Q TAG1)
 TAG2	(SUB P (C 6Q 0Q 6Q 0Q))
	(POPJ P)
	NIL

(LAP FNDBRKPT SUBR)
	(JSP 6Q SPECBIND)
	(0Q 0Q (SPECIAL L) S)
	(PUSH P 1Q)
	(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
	(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
	(CALL 1Q (E NEXTEV) S)
	(JUMPE 1Q TAG3)
	(MOVE 1Q -2Q P)
	(CALL 1Q (E ADD1) S)
	(MOVEM 1Q -2Q P)
	(CALL 1Q (E SPDLRT) S)
	(MOVEM 1Q (SPECIAL L) S)
 TAG1	(MOVE 1Q -2Q P)
	(MOVEM 1Q 0Q P)
	(CALL 1Q (E SUB1) S)
	(CALL 1Q (E NEXTEV) S)
	(MOVEM 1Q -2Q P)
	(JUMPN 1Q TAG7)
	(MOVE 1Q 0Q P)
	(JRST 0Q TAG2)
 TAG7	(CALL 1Q (E SPDLRT) S)
	(MOVEM 1Q -1Q P)
	(CALL 1Q (E ATOM) S)
	(JUMPE 1Q TAG10)
	(MOVE 1Q -2Q P)
	(JRST 0Q TAG2)
 TAG10	(MOVE 1Q -1Q P)
	(PUSHJ P BKFIND)
	(JUMPE 1Q TAG12)
	(MOVE 5Q -1Q P)
	(MOVEM 5Q (SPECIAL L) S)
	(JRST 0Q TAG1)
 TAG12	(MOVE 1Q -2Q P)
	(JRST 0Q TAG2)
 TAG3	(MOVEI 1Q (QUOTE NIL))
 TAG2	(SUB P (C 3Q 0Q 3Q 0Q))
	(JRST 0Q SPECSTR)
	NIL

(LAP BKFIND SUBR)
	(PUSH P 1Q)
 TAG1	(HLRZ@ 5Q 0Q P)
	(CAMN 5Q (SPECIAL L) S)
	(JRST 0Q TAG7)
	(MOVE 1Q 5Q)
	(CALL 1Q (E PATOM) S)
	(JUMPN 1Q TAG6)
	(MOVE 1Q 5Q)
	(PUSHJ P BKFIND)
	(JUMPE 1Q TAG6)
 TAG7	(MOVEI 1Q (QUOTE T) S)
	(JRST 0Q TAG2)
 TAG6	(HRRZ@ 1Q 0Q P)
	(MOVEM 1Q 0Q P)
	(CALL 1Q (E PATOM) S)
	(JUMPE 1Q TAG1)
	(MOVEI 1Q (QUOTE NIL))
 TAG2	(SUB P (C 1Q 0Q 1Q 0Q))
	(POPJ P)
	NIL

(LAP BKTR SUBR)
	(PUSH P 1Q)
	(PUSH P 2Q)
	(PUSH P 3Q)
 TAG1	(MOVE 1Q -2Q P)
	(CALL 1Q (E NEXTEV) S)
	(MOVEM 1Q -2Q P)
	(MOVE 5Q 0Q P)
	(JUMPN 5Q TAG6)
	(CAMN 1Q -1Q P)
	(JRST 0Q TAG3)
 TAG6	(MOVE 1Q -2Q P)
	(CALL 1Q (E SPDLRT) S)
	(MOVEI 2Q (QUOTE 3Q))
	(CALL 2Q (E PRINTLEV) S)
	(MOVEM 1Q (SPECIAL %PREVFN%) S)
	(MOVE 5Q -2Q P)
	(CAMN 5Q -1Q P)
	(JRST 0Q TAG3)
	(MOVE 1Q -2Q P)
	(CALL 1Q (E SUB1) S)
	(MOVEM 1Q -2Q P)
	(JRST 0Q TAG1)
 TAG3	(MOVEI 1Q (QUOTE NIL))
	(SUB P (C 3Q 0Q 3Q 0Q))
	(POPJ P)
	NIL

(LAP BKTRV SUBR)
	(PUSH P 1Q)
	(PUSH P 2Q)
	(PUSH P 3Q)
	(PUSH P 4Q)
	(PUSH P 5Q)
	(CALL 1Q (E ADD1) S)
	(MOVEM 1Q -4Q P)
	(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
 TAG1	(MOVE 1Q -5Q P)
	(CALL 1Q (E SUB1) S)
	(MOVEM 1Q -5Q P)
	(CALL 1Q (E SPDLFT) S)
	(CALL 1Q (E PATOM) S)
	(JUMPE 1Q TAG2)
	(MOVE 1Q -5Q P)
	(CALL 1Q (E SPDLFT) S)
	(JUMPN 1Q TAG1)
	(MOVE 1Q -5Q P)
	(CALL 1Q (E SPDLRT) S)
	(MOVEI 2Q (QUOTE NIL))
	(PUSHJ P BKACT)
	(HRRZ@ 5Q 1Q)
	(MOVEM 5Q 0Q P)
	(MOVE 4Q -3Q P)
	(JUMPE 4Q TAG13)
	(HLRZ@ 4Q 5Q)
	(JUMPE 4Q TAG15)
	(MOVE 5Q -5Q P)
	(CAME 5Q -4Q P)
	(JRST 0Q TAG11)
 TAG15
 TAG13	(MOVE 4Q -2Q P)
	(JUMPE 4Q TAG10)
	(HRRZ@ 4Q 0Q P)
	(HLRZ@ 4Q 4Q)
	(JUMPE 4Q TAG10)
	(MOVE 5Q -5Q P)
	(CAME 5Q -4Q P)
	(JRST 0Q TAG10)
 TAG11	(MOVE 1Q -5Q P)
	(CALL 1Q (E SPDLRT) S)
	(MOVEI 2Q (QUOTE 3Q))
	(CALL 2Q (E PRINTLEV) S)
	(MOVEM 1Q (SPECIAL %PREVFN%) S)
	(JRST 0Q TAG7)
 TAG10	(MOVE 4Q -1Q P)
	(JUMPE 4Q TAG22)
	(HRRZ@ 4Q 0Q P)
	(HRRZ@ 4Q 4Q)
	(HLRZ@ 4Q 4Q)
	(JUMPE 4Q TAG22)
	(MOVE 1Q -5Q P)
	(CALL 1Q (E SPDLRT) S)
	(CALL 1Q (E CONSP) S)
	(JUMPE 1Q TAG22)
	(MOVE 5Q -5Q P)
	(CAME 5Q -4Q P)
	(JRST 0Q TAG22)
	(MOVE 1Q -5Q P)
	(CALL 1Q (E SPDLRT) S)
	(HLRZ@ 1Q 1Q)
	(CALL 1Q (E PRINT) S)
 TAG22
 TAG7	(MOVE 5Q -5Q P)
	(CAMN 5Q -4Q P)
	(JRST 0Q TAG4)
	(JRST 0Q TAG1)
 TAG2	(CALL 0Q (E TERPRI) S)
	(MOVEI 1Q (QUOTE "   ") S)
	(CALL 1Q (E PRINC) S)
	(MOVE 1Q -5Q P)
	(PUSHJ P BKPRINVAL)
	(JRST 0Q TAG1)
 TAG4	(MOVEI 1Q (QUOTE NIL))
	(SUB P (C 6Q 0Q 6Q 0Q))
	(POPJ P)
	NIL

(LAP BKPRINVAL SUBR)
	(PUSH P 1Q)
	(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
	(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
	(CALL 1Q (E SPDLFT) S)
	(MOVEM 1Q -1Q P)
	(HLRZ@ 1Q 1Q)
	(JUMPN 1Q TAG4)
	(MOVE 2Q (SPECIAL LAPLST) S)
	(MOVE 1Q -1Q P)
	(CALL 2Q (E ASSOC) S)
	(MOVEM 1Q 0Q P)
	(JUMPE 1Q TAG5)
	(HRRZ@ 1Q 1Q)
	(JRST 0Q TAG4)
 TAG5	(MOVEI 1Q (QUOTE ?) S)
 TAG4	(CALL 1Q (E PRINC) S)
	(MOVEI 1Q (QUOTE " = ") S)
	(CALL 1Q (E PRINC) S)
	(HLRZ@ 1Q -1Q P)
	(JUMPN 1Q TAG11)
	(MOVE 1Q -1Q P)
 TAG11	(PUSH P 1Q)
	(MOVE 1Q -3Q P)
	(CALL 1Q (E ADD1) S)
	(MOVE 2Q 1Q)
	(POP P 1Q)
	(CALL 2Q (E EVALV) S)
	(MOVEM 1Q -2Q P)
	(CALL 0Q (E UNBOUND) S)
	(CAME 1Q -2Q P)
	(JRST 0Q TAG10)
	(MOVEI 1Q (QUOTE UNBOUND) S)
	(JRST 0Q TAG7)
 TAG10	(MOVE 1Q -2Q P)
 TAG7	(MOVEI 2Q (QUOTE 3Q))
	(CALL 2Q (E PRINLEV) S)
	(MOVEI 1Q (QUOTE NIL))
	(SUB P (C 3Q 0Q 3Q 0Q))
	(POPJ P)
	NIL

(LAP BKACT SUBR)
	(PUSH P 1Q)
	(PUSH P 2Q)
	(CALL 1Q (E PATOM) S)
	(JUMPN 1Q TAG3)
	(HLRZ@ 1Q -1Q P)
	(CALL 1Q (E LITATOM) S)
	(JUMPE 1Q TAG3)
	(MOVEI 2Q (QUOTE ERXACTION) S)
	(HLRZ@ 1Q -1Q P)
	(CALL 2Q (E GET) S)
	(MOVEM 1Q -1Q P)
	(JUMPN 1Q TAG2)
 TAG3	(MOVEI 1Q (QUOTE (T T T T)) S)
	(JRST 0Q TAG1)
 TAG2	(MOVE 1Q -1Q P)
	(CALL 1Q (E CONSP) S)
	(JUMPE 1Q TAG4)
	(MOVE 1Q -1Q P)
	(JRST 0Q TAG1)
 TAG4	(MOVE 1Q 0Q P)
	(JUMPE 1Q TAG5)
	(MOVE 1Q -1Q P)
	(CALL 1Q (E PRINTC) S)
	(MOVEI 1Q (QUOTE NIL))
	(JRST 0Q TAG1)
 TAG5	(MOVEI 1Q (QUOTE (NIL T NIL NIL)) S)
 TAG1	(SUB P (C 2Q 0Q 2Q 0Q))
	(POPJ P)
	NIL

(LAP CHNMX SUBR)
	(PUSH P 1Q)
 TAG1	(MOVE 1Q 0Q P)
	(CALL 1Q (E PATOM) S)
	(JUMPE 1Q TAG6)
	(MOVE 1Q 0Q P)
	(JRST 0Q TAG2)
 TAG6	(MOVE 2Q (SPECIAL %FROM) S)
	(HLRZ@ 1Q 0Q P)
	(CALL 2Q (E EQUAL) S)
	(JUMPE 1Q TAG7)
	(MOVE 5Q (SPECIAL %TO) S)
	(HRLM@ 5Q 0Q P)
	(MOVEI 5Q (QUOTE T) S)
	(MOVEM 5Q (SPECIAL CHNGDFLG) S)
	(JRST 0Q TAG5)
 TAG7	(HLRZ@ 1Q 0Q P)
	(PUSHJ P CHNMX)
 TAG5	(HRRZ@ 5Q 0Q P)
	(MOVEM 5Q 0Q P)
	(JRST 0Q TAG1)
 TAG2	(SUB P (C 1Q 0Q 1Q 0Q))
	(POPJ P)
	NIL

(LAP CHNM1 SUBR)
	(JSP 6Q SPECBIND)
	(0Q 2Q (SPECIAL %FROM) S)
	(0Q 3Q (SPECIAL %TO) S)
	(0Q 0Q (SPECIAL CHNGDFLG) S)
	(PUSH P 1Q)
	(PUSHJ P CHNMX)
	(MOVE 1Q (SPECIAL CHNGDFLG) S)
	(JUMPE 1Q TAG5)
	(MOVE 1Q 0Q P)
 TAG5	(SUB P (C 1Q 0Q 1Q 0Q))
	(JRST 0Q SPECSTR)
	NIL

(LAP BKREAD FSUBR)
	(PUSH P 1Q)
	(MOVE 1Q (SPECIAL %%CMDL) S)
	(JUMPE 1Q TAG2)
	(HRRZ@ 1Q 1Q)
	(JUMPE 1Q TAG2)
	(HRRZ@ 1Q (SPECIAL %%CMDL) S)
	(HLRZ@ 1Q 1Q)
	(HRRZ@ 5Q (SPECIAL %%CMDL) S)
	(MOVEM 5Q (SPECIAL %%CMDL) S)
	(JRST 0Q TAG1)
 TAG2	(MOVE 1Q 0Q P)
	(JUMPE 1Q TAG5)
	(HLRZ@ 1Q 1Q)
 TAG5
 TAG1	(SUB P (C 1Q 0Q 1Q 0Q))
	(POPJ P)
	NIL

(LAP BKPOS SUBR)
	(PUSH P 1Q)
	(MOVEI 1Q (QUOTE NIL))
	(CALL 1Q (E LINELENGTH) S)
	(MOVEI 2Q (QUOTE 30Q))
	(CALL 2Q (E *DIF) S)
	(MOVE 2Q 1Q)
	(MOVE 1Q 0Q P)
	(CALL 2Q (E REMAINDER) S)
	(MOVEM 1Q 0Q P)
	(MOVEI 1Q (QUOTE 0Q))
	(CALL 1Q (E LINES) S)
	(PUSH P (C 0Q 0Q (QUOTE 1Q) 0Q))
 TAG1	(MOVE 2Q -1Q P)
	(MOVE 1Q 0Q P)
	(CALL 2Q (E *GREAT) S)
	(JUMPE 1Q TAG6)
	(MOVE 1Q -1Q P)
	(JRST 0Q TAG2)
 TAG6	(MOVEI 1Q (QUOTE "!  ") S)
	(CALL 1Q (E PRINC) S)
	(JUMPE 1Q TAG7)
	(MOVEI 2Q (QUOTE 3Q))
	(MOVE 1Q 0Q P)
	(CALL 2Q (E *PLUS) S)
	(MOVEM 1Q 0Q P)
	(JRST 0Q TAG1)
 TAG7	(MOVEI 1Q (QUOTE NIL))
 TAG2	(SUB P (C 2Q 0Q 2Q 0Q))
	(POPJ P)
	NIL

(DEFV BKPOS NIL)

(LAP %UNTRACE FSUBR)
	(PUSH P 1Q)
	(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
	(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
	(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
	(HLRZ@ 1Q 1Q)
	(PUSHJ P GOFN)
	(MOVEM 1Q -2Q P)
	(JUMPN 1Q TAG4)
	(PUSH P (C 0Q 0Q TAG5 0Q))
	(MOVEI 1Q (QUOTE ERRORX) S)
	(JSP 13Q *ERRSET1)
	(HRRZ@ 1Q -11Q P)
	(HLRZ@ 1Q 1Q)
	(CALL 1Q (E *EVAL) S)
	(JRST 0Q *ERRSET2)
 TAG5	(MOVEM 1Q -1Q P)
 TAG4	(MOVE 5Q (SPECIAL TRACE) S)
	(JUMPN 5Q TAG7)
	(MOVEI 2Q (QUOTE NIL))
	(MOVEI 1Q (QUOTE NIL))
	(CALL 2Q (E OUTC) S)
	(MOVEM 1Q 0Q P)
 TAG7	(MOVEI 2Q (QUOTE 3Q))
	(MOVE 1Q (SPECIAL #%INDENT) S)
	(CALL 2Q (E *DIF) S)
	(MOVEM 1Q (SPECIAL #%INDENT) S)
	(CALL 1Q (E BKPOS) S)
	(HLRZ@ 1Q -3Q P)
	(CALL 1Q (E PRIN1) S)
	(MOVEI 1Q (QUOTE " = ") S)
	(CALL 1Q (E PRINC) S)
	(MOVE 1Q -1Q P)
	(CALL 1Q (E ATOM) S)
	(JUMPE 1Q TAG11)
	(MOVEI 1Q (QUOTE ?) S)
	(CALL 1Q (E PRINC) S)
	(JRST 0Q TAG10)
 TAG11	(HLRZ@ 1Q -1Q P)
	(CALL 1Q (E %PRINFN) S)
 TAG10	(MOVE 5Q (SPECIAL TRACE) S)
	(JUMPN 5Q TAG14)
	(MOVEI 2Q (QUOTE NIL))
	(MOVE 1Q 0Q P)
	(CALL 2Q (E OUTC) S)
 TAG14	(MOVE 5Q -2Q P)
	(JUMPE 5Q TAG16)
	(HRRZ@ 1Q -3Q P)
	(HLRZ@ 1Q 1Q)
	(CALL 1Q (E *EVAL) S)
	(JRST 0Q TAG15)
 TAG16	(MOVE 1Q -1Q P)
	(CALL 1Q (E ATOM) S)
	(JUMPE 1Q TAG17)
	(MOVE 1Q -1Q P)
	(CALL 1Q (E ERR) S)
	(JRST 0Q TAG15)
 TAG17	(HLRZ@ 1Q -1Q P)
	(JRST 0Q TAG1)
 TAG15	(MOVEI 1Q (QUOTE NIL))
 TAG1	(SUB P (C 4Q 0Q 4Q 0Q))
	(POPJ P)
	NIL

(DEFV TRACE NIL)

(LAP ARGLIST SUBR)
	(PUSH P 1Q)
	(MOVEI 2Q (QUOTE (EXPR FEXPR MACRO)) S)
	(CALL 2Q (E GETL) S)
	(MOVEM 1Q 0Q P)
	(JUMPE 1Q TAG2)
	(CALL 1Q (E CADADR) S)
	(MOVEM 1Q 0Q P)
	(JUMPE 1Q TAG4)
	(CALL 1Q (E ATOM) S)
	(JUMPE 1Q TAG4)
	(PUSH P (C 0Q 0Q TAG7 0Q))
	(MOVE 1Q -1Q P)
	(CALL 1Q (E NCONS) S)
	(MOVEI 2Q (QUOTE LXPD) S)
	(CALL 2Q (E XCONS) S)
	(PUSH P 1Q)
	(MOVE 1Q (SPECIAL LASTPOS) S)
	(CALL 1Q (E ADD1) S)
	(CALL 1Q (E PREVEV) S)
	(PUSH P 1Q)
	(MOVNI 6Q 2Q)
	(JCALL 16Q (E EVAL) S)
 TAG7	(JRST 0Q TAG3)
 TAG4	(MOVE 1Q 0Q P)
 TAG3	(JRST 0Q TAG1)
 TAG2	(MOVEI 1Q (QUOTE 0Q))
	(CALL 1Q (E LINES) S)
	(MOVEI 2Q (QUOTE NIL))
	(MOVEI 1Q (QUOTE "Arguments not found.") S)
	(CALL 2Q (E PRINAC) S)
	(MOVEI 1Q (QUOTE NIL))
 TAG1	(SUB P (C 1Q 0Q 1Q 0Q))
	(POPJ P)
	NIL

(LAP LXPD SUBR)
	(PUSH P 1Q)
	(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
 TAG1	(MOVE 1Q -1Q P)
	(CALL 1Q (E ZEROP) S)
	(JUMPE 1Q TAG6)
	(MOVE 1Q 0Q P)
	(JRST 0Q TAG2)
 TAG6	(MOVE 1Q -1Q P)
	(CALL 1Q (E NCONS) S)
	(MOVEI 2Q (QUOTE ARG) S)
	(CALL 2Q (E XCONS) S)
	(MOVE 2Q 0Q P)
	(CALL 2Q (E CONS) S)
	(MOVEM 1Q 0Q P)
	(JUMPE 1Q TAG7)
	(MOVE 1Q -1Q P)
	(CALL 1Q (E SUB1) S)
	(MOVEM 1Q -1Q P)
	(JRST 0Q TAG1)
 TAG7	(MOVEI 1Q (QUOTE NIL))
 TAG2	(SUB P (C 2Q 0Q 2Q 0Q))
	(POPJ P)
	NIL

(LAP PREVEV SUBR)
	(PUSH P 1Q)
	(CALL 0Q (E SPDLPT) S)
	(PUSH P 1Q)
 TAG1	(MOVE 2Q 0Q P)
	(MOVE 1Q -1Q P)
	(CALL 2Q (E *GREAT) S)
	(JUMPN 1Q TAG3)
	(MOVE 1Q -1Q P)
	(CALL 1Q (E SPDLFT) S)
	(JUMPE 1Q TAG6)
	(MOVE 1Q -1Q P)
	(CALL 1Q (E ADD1) S)
	(MOVEM 1Q -1Q P)
	(JRST 0Q TAG1)
 TAG6	(MOVE 1Q -1Q P)
	(JRST 0Q TAG2)
 TAG3	(MOVEI 1Q (QUOTE NIL))
 TAG2	(SUB P (C 2Q 0Q 2Q 0Q))
	(POPJ P)
	NIL

(LAP STKNAME SUBR)
	(PUSH P 1Q)
	(JUMPE 1Q TAG1)
	(CALL 1Q (E SPDLFT) S)
	(JUMPE 1Q TAG2)
	(MOVEI 1Q (QUOTE NIL))
	(JRST 0Q TAG1)
 TAG2	(MOVE 1Q 0Q P)
	(CALL 1Q (E SPDLRT) S)
	(MOVEM 1Q 0Q P)
	(CALL 1Q (E ATOM) S)
	(JUMPE 1Q TAG3)
	(MOVE 1Q 0Q P)
	(JRST 0Q TAG1)
 TAG3	(HLRZ@ 1Q 0Q P)
 TAG1	(SUB P (C 1Q 0Q 1Q 0Q))
	(POPJ P)
	NIL

(LAP STKNTH SUBR)
	(PUSH P 1Q)
	(PUSH P 2Q)
	(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
	(CALL 1Q (E MINUSP) S)
	(JUMPE 1Q TAG6)
	(MOVE 1Q -2Q P)
	(CALL 1Q (E MINUS) S)
	(MOVEI 5Q (QUOTE T) S)
	(MOVEM 1Q -2Q P)
	(MOVEM 5Q 0Q P)
 TAG6
 TAG1	(MOVE 5Q -1Q P)
	(JUMPE 5Q TAG11)
	(MOVE 1Q -2Q P)
	(CALL 1Q (E ZEROP) S)
	(JUMPE 1Q TAG10)
 TAG11	(MOVE 1Q -1Q P)
	(JRST 0Q TAG2)
 TAG10	(MOVE 5Q 0Q P)
	(JUMPE 5Q TAG12)
	(MOVE 1Q -1Q P)
	(CALL 1Q (E SUB1) S)
	(CALL 1Q (E NEXTEV) S)
	(MOVEM 1Q -1Q P)
	(JRST 0Q TAG7)
 TAG12	(MOVE 1Q -1Q P)
	(CALL 1Q (E ADD1) S)
	(CALL 1Q (E PREVEV) S)
	(MOVEM 1Q -1Q P)
 TAG7	(MOVE 1Q -2Q P)
	(CALL 1Q (E SUB1) S)
	(MOVEM 1Q -2Q P)
	(JRST 0Q TAG1)
 TAG2	(SUB P (C 3Q 0Q 3Q 0Q))
	(POPJ P)
	NIL

(LAP STKSRCH SUBR)
	(PUSH P 1Q)
	(PUSH P 2Q)
	(PUSH P 3Q)
	(MOVE 1Q 2Q)
	(CALL 1Q (E NUMBERP) S)
	(JUMPN 1Q TAG6)
	(MOVE 1Q -1Q P)
	(JRST 0Q TAG2)
 TAG6
 TAG1	(MOVE 5Q 0Q P)
	(JUMPE 5Q TAG10)
	(MOVE 1Q -1Q P)
	(CALL 1Q (E ADD1) S)
	(CALL 1Q (E PREVEV) S)
	(MOVEM 1Q -1Q P)
	(JRST 0Q TAG7)
 TAG10	(MOVE 1Q -1Q P)
	(CALL 1Q (E SUB1) S)
	(CALL 1Q (E NEXTEV) S)
	(MOVEM 1Q -1Q P)
 TAG7	(MOVE 5Q -1Q P)
	(JUMPE 5Q TAG13)
	(MOVE 1Q 5Q)
	(CALL 1Q (E STKNAME) S)
	(CAME 1Q -2Q P)
	(JRST 0Q TAG12)
 TAG13	(MOVE 1Q -1Q P)
	(JRST 0Q TAG2)
 TAG12	(JRST 0Q TAG1)
 TAG2	(SUB P (C 3Q 0Q 3Q 0Q))
	(POPJ P)
	NIL

(LAP STKCOUNT SUBR)
	(PUSH P 1Q)
	(PUSH P 2Q)
	(PUSH P 3Q)
	(PUSH P (C 0Q 0Q (QUOTE 0Q) 0Q))
 TAG1	(MOVE 5Q -2Q P)
	(JUMPE 5Q TAG7)
	(MOVE 1Q 5Q)
	(CALL 1Q (E SUB1) S)
	(CALL 1Q (E NEXTEV) S)
	(MOVEM 1Q -2Q P)
	(JUMPE 1Q TAG7)
	(MOVE 2Q -1Q P)
	(CALL 2Q (E *LESS) S)
	(JUMPE 1Q TAG6)
 TAG7	(MOVE 1Q 0Q P)
	(JRST 0Q TAG2)
 TAG6	(MOVE 1Q -2Q P)
	(CALL 1Q (E STKNAME) S)
	(CAME 1Q -3Q P)
	(JRST 0Q TAG10)
	(MOVE 1Q 0Q P)
	(CALL 1Q (E ADD1) S)
	(MOVEM 1Q 0Q P)
 TAG10	(JRST 0Q TAG1)
 TAG2	(SUB P (C 4Q 0Q 4Q 0Q))
	(POPJ P)
	NIL

(LAP ARGPRINT SUBR)
	(PUSH P 1Q)
	(JUMPE 1Q TAG2)
	(MOVE 5Q (SPECIAL BKPOS) S)
	(JUMPE 5Q TAG4)
	(MOVE 1Q (SPECIAL #%INDENT) S)
	(CALL 1Q (E BKPOS) S)
	(JRST 0Q TAG3)
 TAG4	(MOVEI 1Q (QUOTE 0Q))
	(CALL 1Q (E LINES) S)
 TAG3	(MOVEI 1Q (QUOTE "   ") S)
	(CALL 1Q (E PRINC) S)
	(MOVEI 2Q (QUOTE 1Q))
	(MOVE 1Q 0Q P)
	(CALL 2Q (E PRINLEV) S)
	(MOVEI 1Q (QUOTE " = ") S)
	(CALL 1Q (E PRINC) S)
	(PUSH P (C 0Q 0Q TAG6 0Q))
	(MOVEI 1Q (QUOTE ERRORX) S)
	(JSP 13Q *ERRSET1)
	(MOVE 1Q -6Q P)
	(CALL 1Q (E ATOM) S)
	(JUMPE 1Q TAG12)
	(MOVE 1Q (SPECIAL LASTPOS) S)
	(CALL 1Q (E ADD1) S)
	(CALL 1Q (E PREVEV) S)
	(MOVE 2Q 1Q)
	(MOVE 1Q -6Q P)
	(CALL 2Q (E EVALV) S)
	(MOVE 5Q 1Q)
	(JRST 0Q TAG11)
 TAG12	(PUSH P (C 0Q 0Q TAG13 0Q))
	(PUSH P -7Q P)
	(MOVE 1Q (SPECIAL LASTPOS) S)
	(CALL 1Q (E ADD1) S)
	(CALL 1Q (E PREVEV) S)
	(PUSH P 1Q)
	(MOVNI 6Q 2Q)
	(JCALL 16Q (E EVAL) S)
 TAG13	(MOVE 5Q 1Q)
 TAG11	(MOVEM 5Q -6Q P)
	(CALL 0Q (E UNBOUND) S)
	(CAME 1Q -6Q P)
	(JRST 0Q TAG10)
	(MOVEI 1Q (QUOTE UNBOUND) S)
	(JRST 0Q TAG7)
 TAG10	(MOVE 1Q -6Q P)
 TAG7	(CALL 1Q (E %PRINFN) S)
	(JRST 0Q *ERRSET2)
 TAG6
 TAG2	(SUB P (C 1Q 0Q 1Q 0Q))
	(POPJ P)
	NIL

(DEFPROP BREAKMACROS
 (NIL (-> X (> . X)) (F X (& . X)) (FIX X (EDIT . X) (FROM?= NIL)))
 VALUE)

(DEFV %PRINFN PLEV)

(DEFV USERERRORX NIL)

(DEFPROP ERRORX (NIL NIL NIL NIL) ERXACTION)

(DEFPROP BREAK1 (NIL NIL NIL NIL) ERXACTION)

(DEFPROP //BREAK1 **BREAK** ERXACTION)

(DEFPROP BRKAPPLY (NIL NIL NIL NIL) ERXACTION)